home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / c / AmiVoGL_MDEV.lha / src / scale.s < prev    next >
Text File  |  1997-12-30  |  3KB  |  176 lines
  1.  
  2. ; Maxon C++ Compiler
  3. ; LS2:work/voGL/src/scale.c
  4.     mc68020
  5.     mc68881
  6.     XREF    _newtokens
  7.     XREF    _verror
  8.     XREF    _std__in
  9.     XREF    _std__out
  10.     XREF    _std__err
  11.     XREF    ___MEMFLAGS
  12.     XREF    _vdevice
  13.  
  14.     SECTION ":0",CODE
  15.  
  16.  
  17.     XDEF    _scale
  18. _scale
  19. L3    EQU    $24
  20. L4    EQU    $C9C
  21.     movem.l    d2-d4/d7/a2/a3,-(a7)
  22.     fmovem.x fp7,-(a7)
  23.     move.s    L3+$C(a7),d2
  24.     move.s    L3+$8(a7),d3
  25.     move.s    L3+4(a7),d4
  26.     XREF    userbreak_flagpos
  27.     move.l    userbreak_flagpos,a1
  28.     btst    #4,(a1)
  29.     bne    L5
  30.     tst.b    _vdevice
  31.     bne    L1
  32.     pea    L6
  33.     jsr    _verror
  34.     addq.l    #4,a7
  35. L1
  36.     tst.b    _vdevice+2
  37.     beq    L2
  38.     pea    4.w
  39.     jsr    _newtokens
  40.     addq.l    #4,a7
  41.     move.l    d0,a2
  42.     move.l    a2,a3
  43.     moveq    #0,d7
  44.     move.l    #$28,0(a3,d7.l*4)
  45.     move.l    a2,a3
  46.     moveq    #1,d7
  47.     move.l    d4,0(a3,d7.l*4)
  48.     move.l    a2,a3
  49.     moveq    #2,d7
  50.     move.l    d3,0(a3,d7.l*4)
  51.     move.l    a2,a3
  52.     moveq    #3,d7
  53.     move.l    d2,0(a3,d7.l*4)
  54.     fmovem.x (a7)+,[LATEST]
  55.     movem.l    (a7)+,#L4
  56.     rts
  57. L2
  58.     move.l    _vdevice+$14,a3
  59.     moveq    #0,d7
  60.     fmove.s    0(a3,d7.l*4),fp7
  61.     fmul.s    d4,fp7
  62.     move.l    _vdevice+$14,a3
  63.     moveq    #0,d7
  64.     fmove.s    fp7,0(a3,d7.l*4)
  65.     move.l    _vdevice+$14,a3
  66.     moveq    #1,d7
  67.     fmove.s    0(a3,d7.l*4),fp7
  68.     fmul.s    d4,fp7
  69.     move.l    _vdevice+$14,a3
  70.     moveq    #1,d7
  71.     fmove.s    fp7,0(a3,d7.l*4)
  72.     move.l    _vdevice+$14,a3
  73.     moveq    #2,d7
  74.     fmove.s    0(a3,d7.l*4),fp7
  75.     fmul.s    d4,fp7
  76.     move.l    _vdevice+$14,a3
  77.     moveq    #2,d7
  78.     fmove.s    fp7,0(a3,d7.l*4)
  79.     move.l    _vdevice+$14,a3
  80.     moveq    #3,d7
  81.     fmove.s    0(a3,d7.l*4),fp7
  82.     fmul.s    d4,fp7
  83.     move.l    _vdevice+$14,a3
  84.     moveq    #3,d7
  85.     fmove.s    fp7,0(a3,d7.l*4)
  86.     move.l    _vdevice+$14,a3
  87.     lea    $10(a3),a3
  88.     moveq    #0,d7
  89.     fmove.s    0(a3,d7.l*4),fp7
  90.     fmul.s    d3,fp7
  91.     move.l    _vdevice+$14,a3
  92.     lea    $10(a3),a3
  93.     moveq    #0,d7
  94.     fmove.s    fp7,0(a3,d7.l*4)
  95.     move.l    _vdevice+$14,a3
  96.     lea    $10(a3),a3
  97.     moveq    #1,d7
  98.     fmove.s    0(a3,d7.l*4),fp7
  99.     fmul.s    d3,fp7
  100.     move.l    _vdevice+$14,a3
  101.     lea    $10(a3),a3
  102.     moveq    #1,d7
  103.     fmove.s    fp7,0(a3,d7.l*4)
  104.     move.l    _vdevice+$14,a3
  105.     lea    $10(a3),a3
  106.     moveq    #2,d7
  107.     fmove.s    0(a3,d7.l*4),fp7
  108.     fmul.s    d3,fp7
  109.     move.l    _vdevice+$14,a3
  110.     lea    $10(a3),a3
  111.     moveq    #2,d7
  112.     fmove.s    fp7,0(a3,d7.l*4)
  113.     move.l    _vdevice+$14,a3
  114.     lea    $10(a3),a3
  115.     moveq    #3,d7
  116.     fmove.s    0(a3,d7.l*4),fp7
  117.     fmul.s    d3,fp7
  118.     move.l    _vdevice+$14,a3
  119.     lea    $10(a3),a3
  120.     moveq    #3,d7
  121.     fmove.s    fp7,0(a3,d7.l*4)
  122.     move.l    _vdevice+$14,a3
  123.     lea    $20(a3),a3
  124.     moveq    #0,d7
  125.     fmove.s    0(a3,d7.l*4),fp7
  126.     fmul.s    d2,fp7
  127.     move.l    _vdevice+$14,a3
  128.     lea    $20(a3),a3
  129.     moveq    #0,d7
  130.     fmove.s    fp7,0(a3,d7.l*4)
  131.     move.l    _vdevice+$14,a3
  132.     lea    $20(a3),a3
  133.     moveq    #1,d7
  134.     fmove.s    0(a3,d7.l*4),fp7
  135.     fmul.s    d2,fp7
  136.     move.l    _vdevice+$14,a3
  137.     lea    $20(a3),a3
  138.     moveq    #1,d7
  139.     fmove.s    fp7,0(a3,d7.l*4)
  140.     move.l    _vdevice+$14,a3
  141.     lea    $20(a3),a3
  142.     moveq    #2,d7
  143.     fmove.s    0(a3,d7.l*4),fp7
  144.     fmul.s    d2,fp7
  145.     move.l    _vdevice+$14,a3
  146.     lea    $20(a3),a3
  147.     moveq    #2,d7
  148.     fmove.s    fp7,0(a3,d7.l*4)
  149.     move.l    _vdevice+$14,a3
  150.     lea    $20(a3),a3
  151.     moveq    #3,d7
  152.     fmove.s    0(a3,d7.l*4),fp7
  153.     fmul.s    d2,fp7
  154.     move.l    _vdevice+$14,a3
  155.     lea    $20(a3),a3
  156.     moveq    #3,d7
  157.     fmove.s    fp7,0(a3,d7.l*4)
  158.     fmovem.x (a7)+,[LATEST]
  159.     movem.l    (a7)+,#L4
  160.     rts
  161.  
  162. L5
  163.     XREF    userbreak
  164.     jsr    userbreak
  165.  
  166. L6
  167.     dc.b    'scale: vogl not initialised',0
  168.  
  169.     SECTION ":0",CODE
  170.  
  171.  
  172. L5
  173.     jsr    userbreak
  174.  
  175.     END
  176.